home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
gc100b
/
getcall.wcx
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1994-11-28
|
5KB
|
341 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 5166 bytes 01/11/123 08:21:26pm
'! Code Segment Size :3106 bytes
'! Data Segment Size :4598 bytes
'! String Segment Size:2060 bytes
'! Compiled with WCC version 4.01
Declare Sub Sub2879
Declare Sub Sub2984
Dim s4463 As String
Dim s4467 As String*6
Dim s4473 As String*30
Dim s4503 As String
Dim s4507 As String
Dim s4511 As String
Dim s4515 As String
Dim s4519 As String
Dim s4523 As String
Dim s4527 As String
Dim s4531 As String
Dim s4535 As String
Dim s4539 As String
Dim s4543 As String
Dim s4547 As String
Dim s4551 As String
Dim s4555 As String
Dim s4559 As String
Dim s4563 As String*7
Dim s4570 As String
Dim s4574 As String
Dim s4578 As String
Dim s4582 As String
Dim s4586 As String
Dim s4590 As String
Dim s4594 As String
Dim s65532_ As String
s4463 = "Copyright 1994, Kirk DeHaan"
s4467 = " "
s4473 = "@BBS@"
s4547 = "1"
s4551 = TempPath + "hamcall.txt"
s4555 = TempPath + "gc.tmp"
s4559 = TempPath + "gc.err"
s4563 = "1.0beta"
s4570 = "gchlp.bbs"
s4574 = "gccall.bbs"
s4578 = "gcname.bbs"
s4582 = "gccity.bbs"
s4586 = "gczip.bbs"
s4590 = "gcmode.bbs"
s4594 = "gcdown.bbs"
s4535 = UCase(Environ("QRZDRV"))
If s4535 = "" Then
Open s4559 For Append As 1
Print #1, "@DATE@ @TIME@"
Print #1, "Environment variable QRZDRV not set"
Print #1, "Set this to the drive on which your QRZ database resides."
Close 1
Print "A setup error has occured. Unable to continue. Notify the sysop."
Print "Press RETURN to continue"
Input s4527
End
End If
307 s4539 = UCase(Environ("QRZPATH"))
If s4539 = "" Then
s4539 = "\"
Else
354 s4539 = s4539 + "\"
End If
369 s4543 = UCase(Environ("GCLOG"))
If s4543 = "" Then
s4543 = "OFF"
End If
410 CarrierCheck(-1)
If s4543 = "ON" Then
ActivityLog ""
ActivityLog "getcall.wcx: @FIRST@ @LAST@ entered at @TIME@"
End If
450 Do While 1 = 1
Cls
If Not DisplayFile("gc.bbs") Then
Print "@0B@" + String(36, " ") + "GETCALL"
Print "@03@" + String(32, " ") + "for QRZ Ham CD"
Print "@0C@" + String(78, "=")
Print "@0F@" + LeftPad(s4473, 38 - Len(s4473) / 2)
Print "@0C@" + String(78, "=")
Print "@03@" + String(32, " ") + "Search Options"
Print
Print String(19, " ") + "[@0C@N@03@] Name" + String(24, " ") + "[@0C@S@03@] City/State"
Print String(19, " ") + "[@0C@C@03@] Callsign" + String(20, " ") + "[@0C@Z@03@] Zipcode"
Print String(19, " ") + "[@0C@O@03@] Output Mode" + String(17, " ") + "[@0C@D@03@] Download"
Print String(19, " ") + "[@0A@H@03@] Help" + String(24, " ") + "[@0A@Q@03@] Quit"
Print String(34, " ") + "[@0F@G@03@] Goodbye"
Print
Print String(78 - 20 + Len("@FIRST@") + Len("@LAST@") / 2, " ") + "@07@User - @0F@@FIRST@ @LAST@ @07@Time Left - @0F@@LEFT@"
Print
Print String(33, " ") + "@03@Command - @0F@";
Else
920 Print String(78 - 20 + Len("@FIRST@") + Len("@LSAT@") / 2, " ") + "@07@ User - @0F@@FIRST@ @LAST@ @07@Time Left - @0F@@LEFT@"
Print
Print String(33, " ") + "@03@Command - @0F@";
End If
997 Do While s4523 = ""
s4523 = UCase(InKey(1213417543))
Loop
1035 Print "@0F@" + s4523
Delay 0.25
s65532_ = UCase(s4523)
If s65532_ = "C" Then
Cls
DisplayFile(s4574)
1097 Do While 1 = 1
Print
Print "@03@Enter callsign (@0C@ENTER@03@ = Quit) >>@0F@ ";
Input s4467
If s4467 = "" Then
GoTo 1332
End If
1153 s4531 = s4535 + ":" + s4539 + "qrz " + s4467 + " > " + s4555
Print "@0D@Checking@0C@...";
If s4543 = "ON" Then
ActivityLog "getcall.wcx: Search for " + s4467
End If
1244 Shell s4531, "I:\"
If s4547 = "1" Then
Sub2879
Else
1285 If s4547 = "2" Then
Sub2984
Else
1314 Sub2879
Sub2984
End If
End If
1326 Loop
1332 Del s4555
Else
1345 If s65532_ = "N" Then
Cls
DisplayFile(s4578)
1373 Do While 1 = 1
Print
Print "@03@Enter first name (@0C@ENTER@03@ to quit) >>@0F@ ";
Input s4503
If s4503 = "" Then
GoTo 1664
End If
1425 Print "@03@Enter last name (@0C@ENTER@03@ to quit) >>@0F@ ";
Input s4507
If s4507 = "" Then
GoTo 1664
End If
1463 s4531 = s4535 + ":" + s4539 + "qrz n " + s4507 + " " + s4503 + ">" + s4555
Print "@0D@Checking@0C@...";
If s4543 = "ON" Then
ActivityLog "getcall.wcx: Search for " + s4503 + " " + s4507
End If
1576 Shell s4531, "I:\"
If s4547 = "1" Then
Sub2879
Else
1617 If s4547 = "2" Then
Sub2984
Else
1646 Sub2879
Sub2984
End If
End If
1658 Loop
1664 Del s4555
Else
1677 If s65532_ = "S" Then
Cls
DisplayFile(s4582)
1705 Do While 1 = 1
Print
Print "@03@Enter city name (@0C@ENTER@03@ to quit) >>@0F@ ";
Input s4511
If s4511 = "" Then
GoTo 1996
End If
1757 Print "@03@Enter state name (@0C@ENTER@03@ to quit) >>@0F@ ";
Input s4515
If s4515 = "" Then
GoTo 1996
End If
1795 s4531 = s4535 + ":" + s4539 + "qrz s " + s4515 + " " + s4511 + ">" + s4555
Print "@0D@Checking@0C@...";
If s4543 = "ON" Then
ActivityLog "getcall.wcx: Search for " + s4511 + " " + s4515
End If
1908 Shell s4531, "I:\"
If s4547 = "1" Then
Sub2879
Else
1949 If s4547 = "2" Then
Sub2984
Else
1978 Sub2879
Sub2984
End If
End If
1990 Loop
1996 Del s4555
Else
2009 If s65532_ = "Z" Then
Cls
DisplayFile(s4586)
2037 Do While 1 = 1
Print
Print "@03@Enter the 5 digit zipcode (@0C@ENTER@03@ to quit) >>@0F@ ";
Input s4519
If s4519 = "" Then
GoTo 2264
End If
2089 s4531 = s4535 + ":" + s4539 + "qrz z " + s4519 + ">" + s4555
Print "@0D@Checking@0C@...";
If s4543 = "ON" Then
ActivityLog "getcall.wcx: Search for " + s4519
End If
2176 Shell s4531, "I:\"
If s4547 = "1" Then
Sub2879
Else
2217 If s4547 = "2" Then
Sub2984
Else
2246 Sub2879
Sub2984
End If
End If
2258 Loop
2264 Del s4555
Else
2277 If s65532_ = "O" Then
Cls
DisplayFile(s4590)
Print "@0B@Select Output Mode"
Print
Print " @0F@1@0B@. Screen"
Print " @0F@2@0B@. File"
Print " @0F@3@0B@. Both"
Print
Print "Mode@0F@? ";
Input s4547
If s4547 = "" Then
s4547 = "1"
End If
2386 If s4547 = "2" Or s4547 = "3" Then
Print
Print "@0B@Use [@04@D@0B@] to download your file when finished."
WaitEnter
End If
2430 Else
2436 If s65532_ = "D" Then
Cls
DisplayFile(s4594)
Print
If SendFile(s4551, 1213417543) Then
Print "@03@File@07@ " + s4551 + " @03@sent OK"
Del s4551
Else
2519 Print "@03@Send failed@8C@!"
WaitEnter
End If
2531 Else
2537 If s65532_ = "Q" Then
Cls
GoTo 2734
Else
2569 If s65532_ = "H" Then
Cls
DisplayHelp s4570
Else
2602 If s65532_ = "G" Then
Cls
If s4543 = "ON" Then
ActivityLog "getcall.wcx: @FIRST@ @LAST@ said goodbye at @TIME@"
End If
2647 Goodbye 1213417543
Else
2661 If s65532_ = "V" Then
Cls
Print "@0F@GETCALL v" + s4563
WaitEnter
Else
2707 Beep
Print Chr(8)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
2719 s4523 = ""
Loop
2734 If s4543 = "ON" Then
ActivityLog "getcall.wcx: @FIRST@ @LAST@ returning to BBS at @TIME@"
End If
2759 If Exists(s4551) Then
Del s4551
End If
2779
'! Called 8 times
Sub Sub2879
Open s4555 For Input As 1
Print String(11, Chr(8))
Input #1, s4527
Input #1, s4527
2935 Do While Not EOF(1)
Input #1, s4527
Print "@0B@" + s4527
Loop
2976 Close 1
End Sub
'! Called 8 times
Sub Sub2984
If Exists(s4555) Then
Open s4555 For Input As 1
Open s4551 For Append As 2
Input #1, s4527
Input #1, s4527
3058 Do While Not EOF(1)
Input #1, s4527
Print #2, s4527
Loop
3093 Close 1
Close 2
End If
3103
End Sub